home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / oldwish / dot_wish_file < prev    next >
Encoding:
Text File  |  1989-07-14  |  1.9 KB  |  67 lines
  1. set selectionButton Left
  2.  
  3. sortFiles alpha
  4.  
  5. setFields name
  6.  
  7. bind \Cv {friddle friddle ping}
  8. bind \Cc {close}
  9. bind \Cq {quit}
  10. bind \Ce {exec ls $sel {\n}}
  11. bind \Cm {exec mx $sel {\n}}
  12. bind \Cr {redraw}
  13. bind \Cw {window}
  14. bind \Co {open $sel}
  15. bind \Cs {sortFiles}
  16. bind \Cf {setFields}
  17. bind \Cg {changeGroup}
  18. bind \Cd {changeDirectory $sel}
  19. bind \Ct {exec fstree $sel {\n}}
  20.  
  21. menu create Control    \
  22.     {Redraw} - {C-r} - {redraw}    \
  23.     {sortFiles} - {C-s} - {sortFiles}    \
  24.     {setFields} - {C-f} - {setFields}    \
  25.     {ChangeGroup} - {C-g} - {changeGroup}    \
  26.     {ChangeDirectory $sel} - {C-d} - {changeDirectory $sel}    \
  27.     {Window} - {C-w} - {window}    \
  28.     {Open $sel} - {C-o} - {open $sel}    \
  29.     {Close} - {C-c} - {close}    \
  30.     {Quit} - {C-q} - {quit}
  31.     
  32. menu create Commands    \
  33.     {ls $sel} - {C-e} - {exec ls $sel {\n}}    \
  34.     {mx $sel} - {C-m} - {exec mx $sel {\n}}    \
  35.     {fstree $sel} - {C-t} - {exec fstree $sel {\n}}
  36.  
  37. defineGroup comparison *.h
  38. groupBind *.h right {exec mx $pointed {\n}}
  39.  
  40. defineGroup comparison *.c
  41. groupBind *.c right {exec mx $pointed {\n}}
  42. groupBind *.c {shift middle} {exec cc -g -c $pointed {\n}}
  43.  
  44. defineGroup comparison *.o
  45. groupBind *.o right {exec strings $pointed >! strings.out; mx strings.out {\n}}
  46.  
  47. defineGroup comparison *,v 
  48. defineGroup comparison *.tex
  49. defineGroup comparison *.ps
  50. defineGroup comparison *.dvi
  51. defineGroup comparison *.bib
  52. defineGroup comparison *.ms
  53. defineGroup comparison *.me
  54. #
  55. # for proc rules, the proc must return 1 if file matches, 0 if not, and < 0
  56. # for an error.  The argument is the filename.
  57. #
  58. defineGroup proc {proc DotFiles filename {
  59.     return [pattern {!(.) && !(..) && (.*)} $filename]
  60. }}
  61. defineGroup proc {proc EverythingElse filename {
  62.     return [pattern { !(.) && !(..) && !(.*) && !(*.c) && !(*.h) && !(*.o) && !(*,v) && !(*.tex) && !(*.ps) && !(*.dvi) && !(*.bib) && !(*.ms) && !(*.me)} $filename]}
  63. }
  64.  
  65. # changeGroup *.c comparison *.h
  66. # changeGroup *.c comparison *.o
  67.